unit dmlaboratorio;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, DB, FileUtil, LResources, Forms, Controls, Dialogs,
  ZConnection, ZDataset, ZSqlUpdate, ZSequence, LR_Class, LR_DBSet,
  flaboratoriocadastro, fprodutorcadastro, fprodutorbusca;

type

  { TDataLaboratorio }

  TDataLaboratorio = class(TDataModule)
    DatasourceLaboratorio: TDatasource;
    DatasourceTecnico: TDatasource;
    ZQueryLaboratorio: TZQuery;
    ZQueryLaboratoriobairro: TStringField;
    ZQueryLaboratoriocep: TStringField;
    ZQueryLaboratoriocnpj_laboratorio: TStringField;
    ZQueryLaboratorioemail: TStringField;
    ZQueryLaboratorioendereco: TStringField;
    ZQueryLaboratorioid_municipio: TLongintField;
    ZQueryLaboratorioid_tecnico: TLongintField;
    ZQueryLaboratorionome_laboratorio: TStringField;
    ZQueryLaboratorionome_municipio: TStringField;
    ZQueryLaboratoriopreco_amostra: TFloatField;
    ZQueryLaboratoriotelefone: TStringField;
    ZQueryLaboratoriouf: TStringField;
    ZQueryTecnico: TZQuery;
    ZQueryTecnicobairro: TStringField;
    ZQueryTecnicocep: TStringField;
    ZQueryTecnicocrea: TStringField;
    ZQueryTecnicoemail: TStringField;
    ZQueryTecnicoendereco: TStringField;
    ZQueryTecnicoformacao: TStringField;
    ZQueryTecnicoid_municipio: TLongintField;
    ZQueryTecnicoid_tecnico: TLongintField;
    ZQueryTecniconome_municipio: TStringField;
    ZQueryTecniconome_tecnico: TStringField;
    ZQueryTecnicotelefone: TStringField;
    ZQueryTecnicouf: TStringField;
    ZSeqTecnico: TZSequence;
    ZUpdateLaboratorio: TZUpdateSQL;
    ZUpdateTecnico: TZUpdateSQL;
    procedure LaboratorioCadastro();
    procedure TecnicoCadastro();
    procedure LaboratorioEditar();
    procedure LaboratorioSalvar();
    procedure LaboratorioCancelar();
    procedure TecnicoInserir();
    procedure TecnicoExcluir();
    procedure TecnicoEditar();
    procedure TecnicoSalvar();
    procedure TecnicoCancelar();
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  DataLaboratorio: TDataLaboratorio;

implementation

uses
  ftecnicocadastro, dmprincipal;

{ TDataLaboratorio }

procedure TDataLaboratorio.LaboratorioCadastro();
begin
  if (not ZQueryLaboratorio.Active) then
  begin
    ZQueryLaboratorio.Active := True;
  end;
  FormLaboratorioCadastro.ShowModal;
end;

procedure TDataLaboratorio.TecnicoCadastro();
begin
  if (not ZQueryTecnico.Active) then
  begin
    ZQueryTecnico.Active := True;
  end;
  FormTecnicoCadastro.ShowModal;
end;

procedure TDataLaboratorio.LaboratorioEditar();
begin
  ZQueryLaboratorio.Edit();
end;

procedure TDataLaboratorio.LaboratorioSalvar();
begin
  ZQueryLaboratorio.Post();
end;

procedure TDataLaboratorio.LaboratorioCancelar();
begin
  ZQueryLaboratorio.Cancel();
end;

procedure TDataLaboratorio.TecnicoInserir();
begin
  ZQueryTecnico.Insert();
end;

procedure TDataLaboratorio.TecnicoExcluir();
begin
  ZQueryTecnico.Delete();
end;

procedure TDataLaboratorio.TecnicoEditar();
begin
  ZQueryTecnico.Edit();
end;

procedure TDataLaboratorio.TecnicoSalvar();
begin
  ZQueryTecnico.Post();
end;

procedure TDataLaboratorio.TecnicoCancelar();
begin
  ZQueryTecnico.Cancel();
end;

initialization
  {$I dmlaboratorio.lrs}

end.
